home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb8.arc / BLANK.INC < prev    next >
Text File  |  1985-02-23  |  896b  |  50 lines
  1. {.L+}
  2.  
  3. {FUNCTIONS TO ADD SPACES TO STRINGS  }
  4.  
  5. {FUNCTION SPACE(N:INTEGER):STRING[80];  GENREATES A LINE OF SPACES N LONG  }
  6.  
  7.  
  8.  
  9.  
  10. {.L-}
  11. {.R-}
  12.  
  13. FUNCTION SPACE(N:INTEGER):XXXSTR80;
  14.  
  15. { GENERATES A BLANK N SPACES LONG  }
  16.  
  17. VAR
  18.    HOLD : STRING [80];
  19.    I : INTEGER;
  20.  
  21. BEGIN
  22.    IF N>80 THEN
  23.       N := 80 ;
  24.    HOLD := '';
  25.    FOR I := 1 TO N DO
  26.       HOLD := HOLD + ' ';
  27.    SPACE := HOLD;
  28. END;
  29.  
  30. {*****************************************************}
  31.  
  32. FUNCTION CENTER(S:XXXSTR80; N:INTEGER):XXXSTR80;
  33.  
  34. {GENREATES A STRING N CHARACTERS LONG WITH S CENTERED IN IT}
  35.  
  36. VAR
  37.    HOLD : STRING [80];
  38.  
  39. BEGIN
  40.    IF N > 80 THEN
  41.       N:= 80;
  42.    HOLD := '';
  43.    HOLD := HOLD + SPACE(((N-LENGTH(S)) DIV 2));
  44.    HOLD := HOLD + S;
  45.    HOLD := HOLD + SPACE(N-LENGTH(HOLD));
  46.    CENTER := HOLD;
  47. END;
  48.  
  49. {.R+}
  50. {.L+}